home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / RechnungsübZus_BW1.outpri < prev    next >
Text File  |  1999-03-27  |  10KB  |  465 lines
  1. 3$VER: RechnungsübZusatz Brutto Währung1 1.05 (27.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (27.03.1999)
  5. %%Version: 1.05
  6. %%Title: (MT-RechnungIII - Rechnungsübersicht Währung1 Brutto mit Versandzusatzkosten)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: A4
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 54 def
  22. /DokumentRandY 50 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42.  
  43. /DokumentRandYOriginal DokumentRandY def
  44. %%EndSetup
  45.  
  46. %%BeginnResource
  47. /reencodedict 5 dict def
  48. /ReEncode
  49. {
  50.      reencodedict begin
  51.      /newencoding exch def
  52.      /newfontname exch def
  53.      /basefontname exch def
  54.  
  55.      /basefontdict basefontname findfont def
  56.  
  57.      /newfont basefontdict maxlength dict def
  58.  
  59.      basefontdict
  60.      { exch dup dup /FID ne exch /Encoding ne and
  61.           { exch newfont 3 1 roll put }
  62.           { pop pop }
  63.           ifelse
  64.      } forall
  65.      newfont /FontName newfontname put
  66.      newfont /Encoding newencoding put
  67.      newfontname newfont definefont pop
  68.      end
  69. } def
  70.  
  71. /ISOLatin8Encoding
  72. [
  73.     ISOLatin1Encoding 0 164 getinterval aload pop
  74.     /euro
  75.     ISOLatin1Encoding 165 91 getinterval aload pop
  76. ] def
  77. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  78. /getsymbol {findfont exch scalefont def} bind def
  79. %%EndResource
  80.  
  81. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  82. /Times10Zeile 10 def
  83. /Times10 Times10Zeile /OF0 /Times-Roman /OF0 getfont
  84. /Times24Zeile 24 def
  85. /Times24 Times24Zeile /OF0 /Times-Roman /OF0 getfont
  86.  
  87. /Seite 1 def
  88. /SeitenNr 4 string def
  89. /W 1 def
  90. /N 0 def
  91. /B 1 def
  92. /M 0 def
  93.  
  94. %% Definition der Überschrift
  95. /Ueberschrift
  96. {
  97.     /BoxX1 DokumentRandX def
  98.     /BoxX2 486 def
  99.     /BoxY1 DokumentRandY 2 sub Times10Zeile sub def
  100.     /BoxY2 Times10Zeile Times10Zeile add def
  101.  
  102.     0.9 setgray
  103.     BoxX1 BoxY1 BoxX2 BoxY2 rectfill
  104.     0.0 setgray
  105.     BoxX1 BoxY1 BoxX2 BoxY2 rectstroke
  106.  
  107.     DokumentRandX 3 add DokumentRandY moveto
  108.     (RechNr.) show
  109.  
  110.     DokumentRandX 50 add DokumentRandY moveto
  111.     (Datum) show
  112.  
  113.     DokumentRandX 200 add DokumentRandY moveto
  114.     (Rechnungsempfänger) show
  115.  
  116.     DokumentRandX 300 add DokumentRandY moveto
  117.     (Verkäufer) show
  118.  
  119.     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  120.  
  121.     DokumentRandX 50 add DokumentRandY moveto
  122.     (ArtikelNr) show
  123.  
  124.     DokumentRandX DokumentRandY moveto
  125.     (Anzahl) dup stringwidth
  126.     pop 150 exch sub
  127.     DokumentRandX add DokumentRandY moveto show
  128.  
  129.     DokumentRandX 160 add DokumentRandY moveto
  130.     (Einheit) show
  131.  
  132.     DokumentRandX DokumentRandY moveto
  133.     (MWSt) dup stringwidth
  134.     pop 250 exch sub
  135.     DokumentRandX add DokumentRandY moveto show
  136.  
  137.     DokumentRandX DokumentRandY moveto
  138.     (Einzelpreis) dup stringwidth
  139.     pop 325 exch sub
  140.     DokumentRandX add DokumentRandY moveto show
  141.  
  142.     DokumentRandX DokumentRandY moveto
  143.     (Positionssumme) dup stringwidth
  144.     pop 400 exch sub
  145.     DokumentRandX add DokumentRandY moveto show
  146.  
  147.     DokumentRandX DokumentRandY moveto
  148.     (Endsumme) dup stringwidth
  149.     pop 480 exch sub
  150.     DokumentRandX add DokumentRandY moveto show
  151.  
  152.     DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  153.  
  154. } def
  155.  
  156. %% Ausgabe der Kopfdaten
  157.  
  158. Times24 setfont
  159.  
  160. DokumentRandX DokumentRandY moveto
  161. (Ausgangsrechnungen \(Brutto\)) dup stringwidth pop
  162. PageSize 0 get exch sub 2 div cvi DokumentRandY moveto show
  163.  
  164. DokumentRandY Times24Zeile sub Times24Zeile sub /DokumentRandY exch def
  165.  
  166. Times10 setfont
  167.  
  168. Ueberschrift
  169.  
  170. /ARechnungElemente ARechnungTabelle length def
  171. /ARechnungPosition 0 def
  172.  
  173. ARechnungTabelle
  174. {
  175.  
  176.     ARechnungPosition 1 add /ARechnungPosition exch def
  177.  
  178.     ARechnungElemente ARechnungPosition eq
  179.     {
  180.         /Zeilen 2 def
  181.         /pos exch def
  182.         pos 21 get
  183.         {
  184.             {
  185.                 Zeilen 1 add /Zeilen exch def
  186.             } if
  187.         } forall
  188.  
  189.         Zeilen Times10Zeile mul cvi 50 add DokumentRandY gt
  190.         {
  191.             DokumentRandX 450 add 50 moveto
  192.             (Seite: ) show
  193.             Seite SeitenNr cvs show
  194.             showpage
  195.  
  196.             /DokumentRandY DokumentRandYOriginal def
  197.             Ueberschrift
  198.             Seite 1 add /Seite exch def
  199.         } if
  200.  
  201.         DokumentRandX 3 add DokumentRandY moveto
  202.         (Gesamtsumme \(Netto\):) show
  203.         DokumentRandX DokumentRandY moveto
  204.         pos 19 get N get dup stringwidth
  205.         pop 480 exch sub
  206.         DokumentRandX add DokumentRandY moveto
  207.         show
  208.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  209.  
  210.         /Zaehler 0 def
  211.         pos 21 get
  212.         {
  213.             {
  214.                 DokumentRandX 3 add DokumentRandY moveto
  215.                 (Mehrwertsteuer \() show
  216.                 pos 20 get Zaehler get show
  217.                 (%, Netto: ) show
  218.                 pos 36 get Zaehler get N get show
  219.                 (, Brutto: ) show
  220.                 pos 36 get Zaehler get B get show
  221.                 (\):) show
  222.  
  223.                 DokumentRandX DokumentRandY moveto
  224.                 pos 33 get Zaehler get M get dup stringwidth
  225.                 pop 480 exch sub
  226.                 DokumentRandX add DokumentRandY moveto
  227.                 show
  228.  
  229.                 DokumentRandY Times10Zeile sub /DokumentRandY exch def
  230.             } if
  231.  
  232.             Zaehler 1 add /Zaehler exch def
  233.         } forall
  234.  
  235.         DokumentRandX 3 add DokumentRandY moveto
  236.         (Gesamtsumme \(Brutto\):) show
  237.         DokumentRandX DokumentRandY moveto
  238.         pos 19 get B get dup stringwidth
  239.         pop 480 exch sub
  240.         DokumentRandX add DokumentRandY moveto
  241.         show
  242.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  243.     }
  244.     {
  245.         /Zeilen 3 def
  246.         /pos exch def
  247.         pos 24 get
  248.         {
  249.             Zeilen 1 add /Zeilen exch def
  250.         } if
  251.  
  252.         pos 26 get
  253.         {
  254.             Zeilen 1 add /Zeilen exch def
  255.         } if
  256.  
  257.         pos 62 get
  258.         {
  259.             0 ne
  260.             {
  261.                 Zeilen 1 add /Zeilen exch def
  262.             } if
  263.         } forall
  264.  
  265.         pos 32 get
  266.         {
  267.             Zeilen 1 add /Zeilen exch def
  268.         } if
  269.  
  270.         pos 67 get
  271.         {
  272.             Zeilen 1 add /Zeilen exch def
  273.             1 get 11 get
  274.             {
  275.                 0 ne
  276.                 {
  277.                     Zeilen 1 add /Zeilen exch def
  278.                 } if
  279.             } forall
  280.         } forall
  281.  
  282.         Zeilen Times10Zeile mul cvi 50 add DokumentRandY gt
  283.         {
  284.             DokumentRandX 450 add 50 moveto
  285.             (Seite: ) show
  286.             Seite SeitenNr cvs show
  287.             showpage
  288.  
  289.             /DokumentRandY DokumentRandYOriginal def
  290.             Ueberschrift
  291.             Seite 1 add /Seite exch def
  292.         } if
  293.  
  294.         DokumentRandX 3 add DokumentRandY moveto
  295.         pos 0 get show
  296.  
  297.         DokumentRandX 50 add DokumentRandY moveto
  298.         pos 16 get 0 get show
  299.  
  300.         DokumentRandX 200 add DokumentRandY moveto
  301.         pos 3 get show
  302.    
  303.         DokumentRandX 300 add DokumentRandY moveto
  304.         pos 2 get show
  305.    
  306.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  307.  
  308.         pos 67 get
  309.         {
  310.             /art exch def
  311.  
  312.             DokumentRandX 50 add DokumentRandY moveto
  313.             art 1 get 1 get show
  314.  
  315.             DokumentRandX DokumentRandY moveto
  316.             art 1 get 2 get dup stringwidth
  317.             pop 150 exch sub
  318.             DokumentRandX add DokumentRandY moveto
  319.             show
  320.  
  321.             DokumentRandX 160 add DokumentRandY moveto
  322.             art 0 get 5 get show
  323.  
  324.             DokumentRandX DokumentRandY moveto
  325.             art 1 get 8 get dup stringwidth
  326.             pop 250 exch sub
  327.             DokumentRandX add DokumentRandY moveto
  328.             show
  329.  
  330.             DokumentRandX DokumentRandY moveto
  331.             art 1 get 3 get W get dup stringwidth
  332.             pop 325 exch sub
  333.             DokumentRandX add DokumentRandY moveto
  334.             show
  335.  
  336.             /Zeilen 0 def
  337.             art 1 get 11 get
  338.             {
  339.                 0 ne
  340.                 {
  341.                     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  342.  
  343.                     DokumentRandX 100 add DokumentRandY moveto
  344.                     art 1 get 13 get Zeilen get show
  345.  
  346.                     DokumentRandX DokumentRandY moveto
  347.                     art 1 get 12 get Zeilen get W get dup stringwidth
  348.                     pop 250 exch sub
  349.                     DokumentRandX add DokumentRandY moveto
  350.                     show
  351.  
  352.                     DokumentRandX DokumentRandY moveto
  353.                     art 1 get 15 get Zeilen get W get dup stringwidth
  354.                     pop 325 exch sub
  355.                     DokumentRandX add DokumentRandY moveto
  356.                     show
  357.                 } if
  358.                 Zeilen 1 add /Zeilen exch def
  359.             } forall
  360.  
  361.             DokumentRandX DokumentRandY moveto
  362.             art 1 get 6 get W get dup stringwidth
  363.             pop 400 exch sub
  364.             DokumentRandX add DokumentRandY moveto
  365.             show
  366.  
  367.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  368.  
  369.         } forall
  370.  
  371.         /Zeilen 0 def
  372.         pos 62 get
  373.         {
  374.             0 ne
  375.             {
  376.                 DokumentRandX 50 add DokumentRandY moveto
  377.                 pos 64 get Zeilen get show
  378.         
  379.                 DokumentRandX DokumentRandY moveto
  380.                 pos 63 get Zeilen get W get dup stringwidth
  381.                 pop 325 exch sub
  382.                 DokumentRandX add DokumentRandY moveto
  383.                 show
  384.  
  385.                 DokumentRandX DokumentRandY moveto
  386.                 pos 66 ge